Option Explicit
Sub F_Sample049()
    'ܧr
    Dim myCnc  As String
    Dim myCmd  As String
    Worksheets.Add						'u@sW
    'wnsA
    myCnc = _
    "ODBC;DRIVER=SQLServer;SERVER=SERVERNAME;UID=sa;PWD=;DATABASE=mysample"
    'HSQLԭzӫwo
    myCmd = "SELECT * FROM mysample.dbo.F_Tbl01"
    With ActiveSheet.QueryTables.Add( _
         Connection:=myCnc, Destination:=Range("A1"))
        .CommandText = Array(myCmd)
        .Refresh BackgroundQuery:=False
    End With
End Sub
